Sound Effects for the 
COP800 Family 



This application note describes the creation of sound effects 
using National Semiconductor's COP800 family of microcon- 
trollers. The following applications are described in detail: 

1 . Whistle 

2. White Noise 

3. Explosion 

4. Bomb 

5. Laser Gun 

These applications were developed on a COP820C using a 
10 MHz crystal and a 1 [is instruction cycle time. By making 
the appropriate changes to control registers within the rou- 
tines, slower clock speeds may be used. Program flow dia- 
grams and complete source codes are included in this docu- 
ment. 

I. WHISTLE 

The whistle routine utilizes the timer underflow interrupt and 
employs the TIO function on pin G3. Each timer underflow 
causes the TIO pin to toggle. This creates a tone whose fre- 
quency remains constant as long as the timer autoreload 
register value remains unchanged. In order to create a de- 
sending or ascending whistle tone, the autoreload register 
value is increased or decreased after every thirty-two timer 
interrupts (FGNTR register is used to count the interrupts). 
When the maximum or minimum frequency has been 
reached, the autoreload value must be reinitialized so that 
the whistle frequency does not exceed the desired range. 

II. WHITE NOISE 

White noise is generated by using a random number gener- 
ating algorithm called a RING COUNTER. One random 
number is extracted periodically and placed into the 
MICROWIRE/PLUS™serial shift register. These bits are 
shifted onto the serial output (SO) pin which is wired to a 
transistor amplifier that drives a speaker. The sehal input (SI) 
and serial output (SO) pins must be tied together. 
The RING COUNTER is a pseudo-random number genera- 
tor which operates on the principle of a linear feedback shift 
register (see Figure 1). This shift register is not to be con- 
fused with the MICROWIRE/PLUS serial shift register. 
Rather it is created using two bytes of data memory (RAM), 
and the carry flag. Each bit is called a "stage" with the carry 
flag being "stage 1 " and bit of the two byte data register be- 
ing "stage 1 7". Using a seventeen stage shift register results 
in a clean tone with little distortion. 

Implementation of the ring counter shift register is accom- 
plished by a rotate right with carry instruction (RRC A). The 
linear feedback function is accomplished using an "exclusive 
or" on stages fourteen and seventeen. This particular choice 
of feedback stages results in a complete cycle of bit combi- 
nations, {2" - 1), as long as the loop does not begin with 
zero in the RNGVAL register. 

The "exclusive or" function is not explicit in that the XOR in- 
struction is not used. Rather, stages seventeen and fourteen 
are tested in software using the principle that if only one of 
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them is set then the result is a logic one, otherwise the result 
is logic zero. It turns out that since the rotate occurs prior to 
the test, the actual bits tested are the carry flag (stage 1 ) and 
bit 2 (stage 15). 

A short example using four bits can be used to demonstrate 
how the ring counter works (see Figure 2). If you perform the 
"exclusive or" on stages three and four, then a complete 
cycle results. If instead, you use stages two and four, two 
cycles of six and one cycle of three results depending on the 
bit combination you begin with. 

III. EXPLOSION 

The explosion sound effect is generated by manipulating the 
white noise algorithm to begin with a high pitch and progress 
to a lower pitch. This is done by altering the rate (contained 
in the register LUPREG) at which the random numbers are 
extracted from the ring counter before being placed into the 
MICROWIRE/PLUS serial shift register (SIOR). If for ex- 
ample LUPREG initially contains the value 4, the white noise 
will be at a high pitch. By incrementing this number after ev- 
ery ten timer interrupts (using the register TCNTR) the white 
noise pitch will be reduced. Several other registers are used 
to provide control of strategic portions of sound within the 
routine. First and last tones are controlled with FIRSTR and 
LASTR. The value in EXITR is used to control the overall 
length of the explosion and the length of each tone is con- 
trolled by the register TCNTR. To vary the white noise pitch, 
the register LUPCNT is used. The value in LUPCNT is incre- 
mented each time the pitch of the white noise is decreased 
within the timer interrupt routine. Prior to entering the ring 
count loop, LUPCNT is loaded into LUPREG. The serial in- 
put (SI) pin must be tied to the serial output (SO) pin. 

IV. BOMB 

The bomb sound effect combines the descending whistle 
with an explosion at the end. The TIMER I/O (TIO) and serial 
input (SI) pins must be tied to the serial output (SO) pin. The 
explosion portion of this routine was altered slightly in that 
the first tone control register (FIRSTR) was removed. The 
first initialization of TCNTR, the tone control register, pro- 
vides a means to control the first tone length. Subsequent 
tones are controlled (at label NF2 in the timer interrupt rou- 
tine) where TCNTR is reinitialized. Both versions were re- 
tained for comparison and in the event that greater control of 
the first tone is needed. 

V. LASER GUN 

The laser gun sound effect combines the output from the 
white noise routine and the COP800 timer I/O (TIO) pin (tie 
TIO to SO). The SI pin is not tied to SO in this application 
and the ring counter uses only nine stages instead of seven- 
teen. 

The registers used for program control are EXITR, TCNTR, 
and the TIMER. By adjusting the value in EXITR the duration 
of the laser "shot" can be shortened or lengthened. (A value 
larger than 03F hex may create problems.) By adjusting the 
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TIMER values (TVALO, TVALHI) and the tone counter 
(TCNTR) value, interesting variations in tine laser sound can 
be attained. 

Note: This note applies to ail routines tliat use botti ttie timer interrupt and ttie 
ring counter; in order to return to ttie main program from wtiicti ttie sub- 
routine was called, ttie stack pointer must be manually restored during 
ttie timer interrupt before executing the return (RET) instruction. The 



reason for this is that the timer interrupt is two levels below the main 
program. A simple return statement will only serve to return to the ring 
counter routine from the point at which the timer interrupt occurred. By 
adding two to the stack pointer (SP + 2), the return statement will force 
the address of the instruction following the JSR in MAIN into the pro- 
gram counter (PC) from which point execution will continue. 
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6 BIT REGISTER 



FIGURE 1.17 Stage Ring Counter 
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FIGURE 2. Example Showing Possible Cycles from a 4 Stage Ring Counter 
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Whistle Flow Diagram 
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INITIALIZE TIMER 



(RETURN FROM A 
INTERRUPT J 















WAIT FOR 
INTERRUPT 









(interrupt) 
stop timer 



(TM) 

I RESET COUNT \ ^ 



(TIMOUT) 



(DONE) 





COUNT 
= 32 



^^^ ^N/MA>^ NO 
^FREQ^ 



RESTORE 
STACK POINTER 



DECR/INCR TIMER 
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Descending Whistle 



10 

11 
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14 
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31 
32 
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42 
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TIMER INTERRUPT IS USED. 
OUTPUT ON TIMER I/O (TIC) 
USE 20 MHz XTAL, 1 us 



PIN. 
INSTR CYCLE FOR THIS DEMO. 



WRITTEN BY: JERRY LEVENTER 
DATE: OCTOBER 4, 1989 



TITLE WHISTLEl 
CHIP 820 



00D5 
00E9 
OOEA 
OOEB 

OOEC 
OOED 
OOEE 
OOEF 
0004 
0005 
0002 



PORTGC = 0D5 ; PORT G CONFIGURATION 
SIOR = 0E9 ; SIC SHIFT REGISTER 
TMRLO = OEA ; TIMER LOW BYTE 
TMRHI = OEB ; TIMER HIGH BYTE 
TAULO = OEC ; TIMER REGISTER LOW BYTE 
TAUHI = OED ; TIMER REGISTER HIGH BYTE 
CNTRL = OEE ; CONTROL REGISTER 
PSW REGISTER 



PSW = OFF ; 
TRUN = 4 
TPND = 5 
BUSY = 2 
GIF = 

* SPECIAL REGISTERS AND CONSTANTS 



002F WSLO = 02F ; TIMER VALUES 

0000 WSLHI = 000 

OOFO FCNTR = OFO ; FREQUENCY COUNT REGISTER 

0000 FONT = 000 

OOFF MINFREQ = OFF ; MIN FREQUENCY CONSTANT 



BEGIN DEMO PROGRAM HERE 



0000 DD2F MAIN: LD SP,#02F ; DEFAULT INITIALIZATION OF SP 
0002 3005 JSR WHISTLE ; ***CALLING ROUTINE FOR DEMO*** 

0004 FF JP . 

0005 BCD508 WHISTLE:LD PORTGC, #008 ; TIC PIN (G3) AS OUTPU 
0008 BCEEA2 LD CNTRL, #0A2 ; PWM WITH TIO TOGGLE, 8Tc 

OOOB BCEA2F LD TMRLO, #WSLO ; WHISTLE VALUE FOR TIMER 

OOOE BCEBOO LD TMRHI, #WSLHI 

0011 BCEC2F LD TAULO, #WSLO 

0014 BCEDOO LD TAUHI, #WSLHI 

0017 DOOO LD FCNTR, #FCNT ; INIT FREQ COUNT 

0019 BCEFll LUP: LD PSW, #011 ; ENTI, GIF = 1, TPND = 
OOIC BDEE7C SBIT TRUN, CNTRL ; START TIMER 

OOIF FF JP . ; SELF LOOP TIL TIMER INTERRUPT 

0020 F8 JP LUP ; RUN TIL LAST HISTLE FREQ 

. **** INTERRUPT ROUTINE **** 

OOFF .=OFF 

OOFF BDEF75 IFBIT TPND, PSW ; TEST TIMER PENDING FLAG 

0102 01 JP TIMOUT 

010 3 FF JP . ; ERROR 

0104 BDEE6C TIMOUT: REIT TRUN, CNTRL ; STOP THE TIMER 

0107 BDF075 IFBIT 5, FCNTR ; COUNT CYCLES 

OlOA 06 JP TM 

01 OB 9DF0 LD A, FCNTR ; INCREMENT COUNT 
OlOD 8A INC A 

OlOE 9CF0 X A, FCNTR 

0110 8D RETSK 

0111 DOOO TM: LD FCNTR, #FCNT ; RESET COUNT 
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0113 DEEC LD B,#TAULO 

0115 AE LD A, [B] ; CHANGE FREQUENCY 

0116 92FF IFEQ A, #MINFREQ ; TIMER = MIN FREQ? 
YES 



STORE FREQ IN AUTO RELOAD 



70 


0118 


03 JP DONE 


71 


0119 


8A INC A 


72 


OllA 


A6 X A, [B] 


73 


OllB 


8D RETSK 


74 


one 


9DFD DONE: 


75 


OllE 


9402 ADD A, 


76 


0120 


9CFD X A, SP 


77 


0122 


8E RET 


78 


.END 





LD A, SP ; *** RESTORE STACK POINTER 
#002 ; *** AND RETURN TO CALLING *** 
; *** ROUTINE. *** 
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Ascending Whistle 



10 

11 

12 
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14 
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OUTPUT ON TIMER I/O (TIG) PIN. 

USES TIMER INTERRUT. 

USE 20 MHz XTAL, 1 us INSTR CYCLE FOR THIS DEMO. 

WRITTEN BY: JERRY LEVENTER 
DATE: OCTOBER 4, 1989 



TITLE WHISTLE2 
CHIP 820 

00D5 PORTGC = 0D5 ; PORT G CONFIGURATION 

OOEA TMRLO = OEA ; TIMER LOW BYTE 

OOEB TMRHI = OEB ; TIMER HIGH BYTE 

OOEC TAULO = OEC ; TIMER REGISTER LOW BYTE 

OOED TAUHI = OED ; TIMER REGISTER HIGH BYTE 

OOEE CNTRL = OEE ; CONTROL REGISTER 

OOEF PSW = OEF ; PSW REGISTER 

00 4 TRUN = 4 

0005 TPND = 5 

0002 BUSY = 2 

0000 GIF = 

. **** SPECIAL REGISTERS AND CONSTANTS **** 

OOFF WSLO = OFF ; TIMER VALUES 

0001 WSLHI = 001 

OOOA MAXFREQ = OOA ; LAST FREQUENCY CONSTANT 
OOFO FCNTR = OFO ; TIMER COUNT REGISTER 
0010 FONT = 010 ; COUNTER CONSTANT 



BEGIN PROGRAM HERE 



0000 DD2F MAIN: LD SP,#02F 
0002 3005 JSR WHISTLE2 ; * 

0004 FF JP . 
WHISTLE2 : 

0005 BCD508 LD PORTGC, #008 
0008 BCEEAO LD CNTRL, #0A0 
OOOB BCEAFF LD TMRLO, #WSLO 
OOOE BCEBOl LD TMRHI, #WSLHI 
0011 BCECFF LD TAULO#WSLO 
0014 BCEDOl LD TAUHI, #WSLHI 

0017 DOlO LD FCNTR, #FCNT ; INITIALIZE COUNTER 

0019 BCEFll LUP: LD PSW, #011 ; ENTI, GIE = 1, TPND 
OOIC BDEE7C SBIT TRUN, CNTRL ; START TIMER 

OOIF FF JP . ; SELF LOOP UNTIL TIMER 

0020 F8 JP LUP ; INTERRUPT 



DEFAULT INITIALIZATION OF SP 
CALLING ROUTINE FOR DEMO *** 



TIO PIN (G3) AS OUTPUT 
PWM WITH TIO TOGGLE, 
WHISTLE VALUE FOR TIMER 
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INTERRUPT ROUTINE 



53 
54 
55 

56 OOFE .=OFF 

57 OOFE BDEE75 IFBIT TPND.PSW ; TEST TIMER PENDING FLAG 

58 0102 01 JP TIMOUT 

59 0103 FE JP . 

60 0104 BDEE6C TIMOUT: REIT TRUN, CNTRL ; STOP THE TIMER 

61 0107 BDF075 IFBIT 5,FCNTR ; FREQUENCY TIMED OUT? 

62 OlOA 06 JP TM ; YES, CHANGE FREQUENCY 

63 OlOB 9DF0 LD A, FCNTR ; NO, KEEP GOING 

64 OlOD 8A INC A ; INCREMENT COUNT 

65 OlOE 9CF0 X A, FCNTR 

66 0110 8D RETSK ; RETURN 

67 0111 DOlO TM: LD FCNTR, #FCNT ; RESET COUNTER 

68 0113 9DEC LD A, TAULO ; CHANGE FREQUENCY 

69 0115 920A IFEQ A, #MAXFREQ ; TIMER = MAX FREQUENCY ? 

70 0117 05 JP DONE ; YES 

71 0118 94FF ADD A, #OFF ; INCREMENT FREQUENCY 

72 OllA 9CEC X A, TAULO ; STORE FREQ IN AUTO RELOAD 

73 one 8D RETSK 

74 OllD 9DFD DONE: LD A, SP ; *** RESTORE STACK POINTER * 

75 OllF 9402 ADD A, #002 ; *** AND RETURN TO CALLING *** 

76 0121 9CFD X A, SP ; *** ROUTINE. *** 

77 0123 8E RET 
7 8 .END 
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White Noise 



( RING COUNTER ) 



INITIALIZE 
RANDOM § REG. 
TO ALL ONE'S 



INITIALIZE 

RANDOM # 

EXTRACTION RATE 

(LUPREG) 



LOAD AND START 

SERIAL SHIFT REG. 

(SIOR) 



ROTATE RANDOM 
# W/CARRY 



XOR 

(BIT 2 AND 

CARRY) 



(LUPTST) 




RING COUNTER 
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TIE SERIAL INPUT (SI)PIN TO SERIAL OUTPUT (SO) PIN. 

OUTPUT IS ON THE SERIAL OUTPUT (SO) PIN. 

NO INTERRUPT IS USED. 

USE 20 MHz XTAL, 1 us INSTR CYCLE FOR THIS DEMO. 



WRITTEN BY: JERRY LEVENTER 
DATE: OCTOBER 4, 1989 



TITLE NOISES 
CHIP 820 



SPECIAL REGISTERS AND CONSTANTS 



10 
11 
12 
13 
14 
15 

16 00D5 PORTGC = 0D5 ; PORT G CONFIGURATION 

17 00E9 SIOR = 0E9 ; SERIAL SHIFT REGISTER 

18 OOEA TMRLO = OEA ; TIMER LOW BYTE 

19 OOEB TMRHI = OEB ; TIMER HIGH BYTE 

20 OOEC TAULO = OEC ; TIMER REGISTER LOW BYTE 

21 OOED TAUHI = OED ; TIMER REGISTER HIGH BYTE 

22 OOEE CNTRL = OEE ; CONTROL REGISTER 

23 OOEF PSW = OFF ; PSW REGISTER 

24 0002 BUSY = 2 ; BUSY BIT 
25 
26 
27 

28 0002 RNGVAL = 002 ; RANDOM NUMBER LOCATION 

29 OOFF LUPREG = OFF ; EXTRACTION RATE REGISTER 

30 00 00 FLAG =0 00 ; RANDOM NUMBER BYTE FLAG 

31 0004 COUNT = 4 ; EXTRACTION RATE CONSTANT 
32 
33 
34 
35 
36 

37 0000 DD2F LD SP, #02F ; DEFAULT INITIALIZATION OF SP 

38 0002 BCD530 NOISE: LD PORTGC, #030 ; SO AND SK AS OUTPUTS 

39 0005 BCEE8B LD CNTRL, #08B ; SK = DIV BY 8, TIMER RELOAD 

40 0008 Al SO ; INIT STAGE 1 

41 0009 5D LD B,#RNGVAL ; POINT TO RANDOM # LOCATION 

42 OOOA 9AFF LD [B+],#0FF ; INIT RING VAL TO ONE'S 

43 OOOC 9EFF LD [B],#OFF ; B POINTS TO UPPER BYTE 

44 OOOE 9CE9 SHIFT: X A, SIOR ; PLACE # IN SIOR 

45 0010 BDEF7A SBIT BUSY, PSW ; START SHIFTING 

46 0013 DF04 LD LUPREG, #004 ; RESTORE EXTRACTION COUNT 

47 ; 



BEGIN PROGRAM HERE 
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48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 



70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 



RING COUNTER (17 STAGE) 

THIS IS A SEVENTEEN STAGE RING COUNTER (LINEAR 

FEEDBACK SHIFT REGISTER) WITH THE RRC COMMAND. 

THE COUNTER'S 14TH AND 17TH STAGES THROUGH AN 

EXCLUSIVE-OR SERVE AS THE FEEDBACK FUNCTION. 

THIS 14, 17 RING COUNTER BREAKS DOWN INTO 

1 CYCLE OF [(2 ** 17) - 1] COUNTS. SINCE THE EXCLUSIVE OR 

OCCURS AFTER THE ROTATE, IT IS THE 15TH AND CARRY 

STAGES THAT ARE XOR' D (BIT 2 AND CARRY) . 

STAGE 



BEFORE ROTATE: 14 17 
AFTER ROTATE: 15 CARRY 



CARRY BIT = STAGE ONE 
LOW ORDER BIT = STAGE 17 



0015 
0016 
0017 
0018 
0019 
OOIA 
OOIB 
OOID 
OOIE 
0020 
0021 
0022 
0023 
0024 
0025 
0026 
0027 
0028 
0029 
.END 



RING: LD A, [B] ; GET RANDOM # 

RRC A ; ROTATE UPPER BYTE 

X A, [B-] 

LD A, [B] 

RRC A ; ROTATE LOWER BYTE 

X A, [B] 
)4 LD A, #004 ; PERFORM XOR 

AND A, [B] 
)0 IFEQ A, #000 

JP LUPTST 

IFC 

JP RC 

SC 

JP LUPTST 

RC: RC 

LUPTST: LD A, [B+] ; POINT TO UPPER BYTE 

DRSZ LUPREG ; EXTRACT THIS NUMBER ? 

JP RING ; NO, KEEP ROTATING 

JP SHIFT ; YES, SEND IT 
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Explosion 



Q XPL0D8 ) 
i 



INITIALIZE 
COUNTERS 



T 



1 START 
TIMER 






. 




"' 




DO WHITE 
NOISE 











RESTORE STACK 
POINTER 



c 



RETURN TO CALLING 
ROUTINE 



) 



( TIMER INTERRUPT ) 
i 





DISABLE FIRST 
TONE COUNT 

— cz 



INCREMENT EXTRACT 
VALUE (LUPCNT) 



(NXT1) 



ADJUST 

NEW TONE 

COUNT (TCNTR) 



(NXT2) 



RESTART TIMER 



c 



RETURN FROM 
INTERRUPT 



3 
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10 

11 

12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
58 
59 



TIMER INTERRUPT IS USED. 

SI MUST BE TIED TO SO. OUTPUT ON SO. 

USE 20 MHz XTAL, 1 us INSTR CYCLE FOR THIS DEMO. 

WRITTEN BY: UERRY LEVENTER 
DATE: OCTOBER 4, 198 9 

.TITLE XPL0D8 
.CHIP 820 



0OD5 
0OE9 
30EA 
30EB 
30EC 
OOED 
30EE 
30EE 
0OO4 
3005 
3002 



0D5 
0E9 ; 
= OEA 
= OEB 
= OEC 
= OED 
= OEE 
OEF 



PORT G CONFIGURATION 
SIO SHIFT REGISTER 
; TIMER LOW BYTE 
; TIMER HIGH BYTE 
; TIMER REGISTER LOW BYTE 
; TIMER REGISTER HIGH BYTE 
; CONTROL REGISTER 
PSW REGISTER 



PORTGC 
SIOR = 
TMRLO 
TMRHI 
TAULO 
TAUHI 
CNTRL 
PSW = 
TRUN = 4 
TPND = 5 
BUSY = 2 



SPECIAL REGISTERS AND CONSTANTS 



ANY REGISTER USED FOR THE DRSZ TEST MUST 
BE INITIALIZED TO AT LEAST "1". 



3F5 FIRSTR 
302 FIRST = 
3F6 LASTR = 
302 LAST = 
3F7 EXITR = 
310 EXIT = 



OA TCNT 



= 0F5 ; FIRST TONE CONTROL REGISTER 

■ 002 ; FIRST TONE CONSTANT 

■ 0F6 ; LAST TONE CONTROL REGISTER 
002 ; LAST TONE CONSTANT 

■ 0F7 ; ROUTINE DURATION REGISTER 
010 ; EXIT CONSTANT 

32 RNGVAL = 002 ; HOLDS CURRENT RANDOM # 
18 TCNTR = 0F8 ; TONE DURATION REGISTER 
OA ; TONE CONSTANT 

020 ; "FIRST" TONE CONSTANT 
= 0F9 ; EXTRACTION RATE REGISTER 

00 4 ; EXTRACT CONSTANT 
= OFA ; EXTRACTION VARIABLE REGISTER 
000 ; LAST TONE FLAG 

OFF ; TIMER VALUES 
= 010 



3020 
30F9 



TCNTl - 
LUPREG 
3004 XTRCT - 
30FA LUPCNT 
3000 TEMP = 
30FF TVALO - 
3010 TVALHI 



BEGIN PROGRAM HERE 



300 DD2F MAIN: LD SP,#02F ; DEFAULT INITIALIZATION OF SP 

302 3005 USR XPLOD ; **** XPLOD CALLING ROUTNE **** 

304 FF UP . ; **** SELF LOOP FOR DEMO **** 

305 BCD530 XPLOD: LD PORTGC, #030 

308 BCEE8A LD CNTRL, #08A ; SK = DIV BY 8, PWM ON 

30B BCEFll LD PSW, #011 ; ENABLE TIMER INTERRUPT 

30E BCEAFF LD TMRLO, # TVALO ; INITIALIZE TIMER 

311 BCEBIO LD TMRHI , #TVALHI 

314 BCECFF LD TAULO, # TVALO 

317 BCEDIO LD TAUHI , #TVALHI 
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61 
62 
63 
64 
65 



70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 



100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
114 
115 
116 
117 



OOIA 
OOIC 
OOIE 
0020 
0022 
0024 
0027 
002A 
002B 
002C 
002E 
0030 
0032 
0035 
0037 



D502 LD 
D602 LD 
D710 LD 
D80A LD 
DA04 LD 



FIRSTR, #FIRST 
LASTR, #LAST ; 
EXITR, #EXIT ; 
TCNTR, #TCNT ; 
LUPCNT, #XTRCT 
REIT 0,TEMP 



; LENGTHEN FIRST TONE 
LENGTHEN LAST TONE 
INITIALIZE EXIT COUNT 
INITIALIZE TONE COUNT 
; INITIALIZE EXTRACTION 
RESET LAST TONE FLAG 



BDEE7C SBIT TRUN, CNTRL ; START TIMER 

Al NOISE: SC ; INIT. STAGE 1 

5D LD B, #RNGVAL ; POINT TO RANDOM NUMBER 

9AFF LD [B+],#OFF ; INIT TO ALL ONE'S 

9EFF LD [B] , #OFF 

9CE9 SHIFT: X A, SIOR ; LOAD AND START SIOR 

BDEF7A SBIT BUSY.PSW 

9DFA LD A, LUPCNT ; RESTORE EXTRACTION COUNT 

9CF9 X A,LUPREG 



RING COUNTER (17 STAGE) 

THIS IS A SEVENTEEN STAGE RING COUNTER (LINEAR 

FEEDBACK SHIFT REGISTER) WITH THE RRC COMMAND. 

THE COUNTER'S 14th AND 17th STAGES THROUGH AN 

EXCLUSIVE-OR SERVE AS THE FEEDBACK FUNCTION. 

THIS 14, 17 RING COUNTER BREAKS DOWN INTO 

1 CYCLE OF [(2 ** 17) - 1] COUNTS. SINCE THE EXCLUSIVE OR 

OCCURS AFTER THE ROTATE, IT IS THE 15th AND CARRY 

STAGES THAT ARE XOR' D (BIT 2 AND CARRY). 

STAGE 



BEFORE ROTATE: 14 17 
AFTER ROTATE: 15 CARRY 



CARRY BIT = STAGE 1 

LOW ORDER BIT OF 16 BIT REGISTER = STAGE 17 



0039 
003A 
003B 
003C 
003D 
003E 
003F 
0041 
0042 
0044 
0045 
0046 
0047 
0048 
0049 
004A 
004B 
004C 
004D 
004E 



RING: LD A, [B] ; GET RANDOM # 

RRC A ; ROTATE UPPER BYTE 

X A, [B-] 

LD A, [B] 

RRC A ; ROTATE LOWER BYTE 

X A, [B] 
}4 LD A, #004 ; PERFORM XOR 

AND A, [B] 
)0 IFEQ A, #000 

UP TSLUP 

IFC 

UP RC 

SC 

UP TSTLUP 

RC: RC 

TSTLUP: LD A, [B+] ; POINT TO UPPER BYTE 

DRSZ LUPREG ; EXTRACT THIS # ? 

UP RING ; NO, KEEP ROTATING 

LD A, [B] ; YES 

UP SHIFT 



13 
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118 




119 


. ** 


120 




121 


OOFF 


122 


OOFF 


123 


0102 


124 


0103 


125 


0105 


126 


0108 


127 


OlOA 


128 


OlOB 


129 


OlOD 


130 


OlOE 


131 


OlOF 


132 


0110 


133 


0112 


134 


0115 


135 


0118 


136 


0119 


137 


one 


138 


OllD 


139 


OllE 


140 


OllF 


141 


0120 


142 


0121 


143 


0122 


144 


0124 


145 


0127 


146 


0128 


147 


012A 


148 


012C 


149 


012E 


150 


012F 


151 


0132 


152 


0133 


153 


0134 


154 


0136 


155 


0137 


156 


0139 


157 


013B 


158 


013D 


159 


.END 



TIMER INTERRUPT ROUTINE 



TEST TIMER PND FLAG 



STOP TIMER 



; .= OFF 

BDEF75 IFBIT TPND,PSW 

02 JP TMOUT 

2005 JMP XPLOD 

BDEE6C TMOUT: RBIT TRUN.CNTRL 

DEFA LD B, #LUPCNT 

C5 DRSZ FIRSTR ; TEST FOR FIRST TONE 

213B JMP NXTl ; AND ADJUST 

C8 DRSZ TCNTR ; TEST FOR NEW TONE 

01 JP NXT ; NO 

OD JP NEWE 

D501 NXT: LD FIRSTR, #1 ; DISABLE FIRST TONE REG 

BDEF7C NXT2 : SBIT 4,PSW ; ENABLE TIMER INTERRUPT 

BDEF6D RBIT 5,PSW ; RESET TPND FLAG 

5D LD B, #RNGVAL ; POINT TO RANDOM* 

BDEE7C SBIT TRUN, CNTRL ; RESTART TIMER 

8F RETT ; RETURN 

07 NEWF: DRSZ EXITR ; TEST EXIT COUNT 

10 JP NF ; NO 

C6 DRSZ LASTR ; ENABLE LAST TONE 

01 JP LSI 

6 JP NLST 

D709 LSI: LD 

BD0078 SBIT 

OF JP NF2 

9DFD NLST: LD A, SP ; *** RESTORE STACK POINTER *** 

9402 ADD A, #002 ; *** FROM TIMER INTERRUPT *** 

9CFD X A, SP ; *** AND RETURN TO MAIN *** 

8E RET 

BD0070 NF: IFBIT 0,TEMP ; LAST TONE ? 

04 JP NF2 ; YES 

AE LD A, [B] ; NEW TONE 

9404 NF4: ADD A, #04 ; INCR EXTRACTION VALUE 

A6 X A, [B] 

D80A NF2: LD TCNTR, #TCNT ; REINITIALIZE TONE TIME 

2110 JMP NXT 

D820 NXTl: LD TCNTR, #TCNT1 ; ADJUST FIRST TONE LENGTH 

2112 JMP NXT2 



EXITR, #09 ; SET LAST TONE LENGTH 
D,TEMP ; SET LAST TONE FLAG 
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Bomb 



SET WHISTLE 
FLAG 



RESET WHISTLE 
FLAG 



c 


TIMER INTERRUPT 


) 












^^^^^ 




RESTORE STACK 

POINTER 
(TWO LEVELS) 




<;^HISTLr^ 


NO 


GENERATE 

EXPLOSION 


















T YES 




C 


i 


) 




GENERATE 
WHISTLE 




RET TO CALLING 
ROUTINE 




& 




AN010716-5 
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1 ; 

2 ; 

3 ; 


THE SERIAL INPUT (SI) AND TIMER I/O (TIO) PINS 


4 ; 


MUST BE TIED TO THE SERIAL OUTPUT (SO) PIN. 


5 ; 


OUTPUT IS ON SO. 


6 ; 

7 ; 

8 ; 


USE 20 MHz XTAL, 1 us INSTR CYCLE FOR THIS DEMO. 


WRITTEN BY: JERRY LEVENTER 


9 ; 


DATE: OCTOBER 4, 1989 


10 ; 


11 ; 


12 .TITLE BOMBS 


13 .CHIP 820 


14 ; 


15 00D5 PORTGC = 0D5 ; PORT G CONFIGURATION 


16 00E9 SIOR = 0E9 ; SIC SHIFT REGISTER 


17 OOEA TMRLO = OEA ; TIMER LOW BYTE 


18 OOEB TMRHI = OEB ; TIMER HIGH BYTE 


19 OOEC TAULO = OEC ; TIMER REGISTER LOW BYTE 


20 OOED TAUHI = OED ; TIMER REGISTER HIGH BYTE 


21 OOEE CNTRL = GEE ; CONTROL REGISTER 


22 OOEE PSW = OEF ; PSW REGISTER 


2 3 00 04 TRUN = 4 


24 0005 TPND = 5 


25 0002 BUSY = 2 


26 0000 GIE = 


27 




28 


. **** EXPLOSION REGISTERS AND CONSTANTS **** 


29 




30 


; SOME OF THE FOLLOWING REGISTERS USE THE DRSZ 


31 


; TEST AND MUST THEREFORE BE INITIALIED TO AT 


32 


; LEAST "1". 


33 




34 00F6 LASTR = 0F6 ; CONTROL LAST TONE 


35 0002 LAST = 002 ; LAST TONE CONSTANT 


36 0004 LAST2 = 004 ; EXIT CONSTANT 


37 00F7 EXITR = 0F7 ; TOTAL TIME TILL EXIT 


38 0010 EXIT = 010 ; EXIT CONSTANT 


39 00F3 RNGVAL = 0F3 ; HOLDS CURRENT RING VALUE 


40 00F8 TCNTR = 0F8 ; TIME FOR EACH TONE FREQ 


41 OOOA TCNT = OA ; CONSTANT VALUE 


42 00F9 LUPREG = 0F9 ; TONE COUNT INSIDE RING 


43 OOFA LUPCNT = OFA ; TONE COUNT OUTSIDE RING (VARIABLE) 


44 0000 FLAG = 000 ; FLAG REGISTER FOR SUBROUTINES 


45 ; 


4 6 OOFF TVALO = OFF 


47 OOIA TVALHI = OlA 


48 




49 


;**** WHISTLE REGISTERS AND CONSTANTS **** 


50 




51 002F WSLO = 02F ; TIMER VALUES 


52 0000 WSLHI = 000 


53 OOFF MINFQ = OFF ; FINAL (LOW FREQ) TIMER VALUE 


54 ; 


55 OOFO FCNTR = OFO ; FREQUENCY COUNT REGISTER 


56 0000 FONT = 000 



www.national.com 



57 
58 
59 
60 
61 
62 
63 
64 
65 



70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 



100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 



MAIN: 

0000 DD2F LD SP,#02F 



DEFAULT INITIALIZATION OF SP 



0002 BD0078 SBIT 0,FLAG ; SET SUBROUTINE FLAG 

; 1 = WHISTLE 

; = EXPLOSION 

0005 3157 JSR WHISTLE 

0007 BD0068 MAIN2 : KBIT 0,FLAG 

OOOA 300D JSR BOMB 

OOOC EF JP . ; *** STOP HERE OR REPEAT *** 



OOOD 
0010 
0013 
0016 
0019 
OOIC 
OOIE 
0022 
0024 
0026 
0028 
002A 

002D 
002E 
0030 
0032 
0034 
0037 
003A 
003C 
003E 
0041 



BCD530 

BCEE8A 

BCEFll 

BCEAFF 

BCEBIA 

BCECFF 

BCEDIA 

D602 LD 

D710 LD 

D80A LD 

DAOA LD 



BOMB: LD PORTGC,#030 ; CONFIGURE "SO" AS OUTPUT 

LD CNTRL,#08A ; SK = DIV BY 8, PWM ON 

LD PSW,#011 ; ENABLE TIMER INTERRUPT 

LD TMRLO, #TVALO ; INITIALIZE TIMER 

LD TMRHI, #TVALHI 

LD TAULO, #TVALO 

LD TAUHI, #TVALHI 



LASTR, #LAST 
EXITR, #EXIT 
TCNTR, #TCNT 
LUPCNT,#10 ; 
REIT 1,FLAG ; 



: INITIALIZE LAST TONE FLAG 

: INITIALIZE EXIT COUNT 

: INITIALIZE TONE COUNT 
INITIALIZE FIRST TONE FREQUENCY 
RESET LAST TONE FLAG BIT 



Al NOISE: SO ; 

DEE3 LD B, #RNGVAL ; POINT TO RING VALUE 

9AEF LD [B+],#0FF ; INIT TO ALL ONE'S 

9EFF LD [B] , #OFF 

BDEE7C SBIT TRUN.CNTRL ; START THE TIMER 

BEF6A SHIFT: REIT BUSY, PSW 

9CE9 X A, SIOR ; RANDOM # TO SIO 

BDEF7A SBIT BUSY, PSW 

9DFA LD A, LUPCNT ; RESTORE EXTRACTION COUNT 

9CF9 X A,LUPREG 



RING COUNTER (17 STAGE) 

THIS IS A SEVENTEEN STAGE RING COUNTER (LINEAR 
FEEDBACK SHIFT REGISTER) WITH THE RRC COMMAND. 
THE COUNTER'S 14th AND 17th STAGES THROUGH AN 
EXCLUSIVE-OR SERVE AS THE FEEDBACK FUNCTION. 

THIS 14, 17 RING COUNTER BREAKS DOWN INTO 

1 CYCLE OF [(2 ** 17) - 1] COUNTS. SINCE THE EXCLUSIVE OR 
OCCURS AFTER THE ROTATE, IT IS THE 15th AND CARRY 
STAGES THAT ARE XOR' D (BIT 2 AND CARRY). 

BEFORE ROTATE: 14 17 
AFTER ROTATE: 15 CARRY 

CARRY BIT = STAGE ONE 
LOW ORDER BIT = STAGE 17 
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Ill 


. ^,^,^,^,t^,t^,t^,t^,^,^,^,^,^,^^,t^,t^,t^,^,^,^,^,^,^,^,t^,t^,t^,^, 


112 


0043 


AE RING: LD A, [B] ; GET RANDOM # 


113 


0044 


BO RRC A ; ROTATE UPPER BYTE 


114 


0045 


A3 X A, [B-] 


115 


0046 


AE LD A, [B] 


116 


0047 


BO RRC A ; ROTATE LOWER BYTE 


117 


0048 


A2 X A, [B+] 


118 


0049 


9804 LD A, #004 ; PERFORM XOR 


119 


004B 


85 AND A, [B] 


120 


004C 


9200 IFEQ A, #000 


121 


004E 


05 JP TSTLUP 


122 


004F 


88 IFC 


123 


0050 


02 JP RC 


124 


0051 


Al SC 


125 


0052 


01 JP TSTLUP 


126 


0053 


AO RC : RC 


127 


0054 


C9 TSLUP: DRSZ LUPREG ; POINT TO UPPER BYTE 


128 


0055 


ED JP RING ; EXTRACT THIS # ? 


129 


0056 


AE LD A, [B] ; NO, KEEP ROTATING 


130 


0057 


2037 JMP SHIFT ; YES 


131 






132 


. **** INTERRUPT ROUTINE **** 


133 






134 


OOFF 


.= OFF 


135 


OOFF 


BDEF75 IFBIT TPND,PSW ; TEST FOR EXIT 


136 


0102 


01 JP TMOUT 


137 


0103 


FF JP . ; ERROR 


138 


; 




139 


0104 


BDEE6C TMOUT REIT TRUN, CNTRL ; STOP TIMER 


140 


0107 


BD0070 IFBIT , FLAG ; BRANCH TO ROUTINE 


141 


OlOA 


213B JMP WSINT ; SET = WHISTLE, RESET = EXPLOSION 


142 


; 




143 


OlOC 


DEFA LD B, #LUPCNT 


144 


OlOE 


C8 DRSZ TCNTR ; TEST FOR NEW TONE 


145 


OlOF 


01 JP NXT ; NO, DON'T INCREMENT LUPCNT 


146 


0110 


OC JP NEWF ; YES 


147 


0111 


BDEF7C NXT: SBIT 4,PSW ; ENABLE TIMER INTRRUPT 


148 


0114 


BDEF6D REIT 5,PSW ; RESET TIMER PENDING FLAG 


149 


0117 


DEF3 LD B,#RNGVAL ; POINT TO RANDOM # 


150 


0119 


BDEE7C SBIT TRUN, CNTRL ; RESTART TIMER 


151 


one 


8F RETT ; RETURN TO RING COUNTER 


152 


OllD 


C7 NEWF: DRSZ EXITR ; DO LAST TONE ? 


153 


OllE 


10 JP NF ; NO 


154 


OllF 


C6 DRSZ LASTR ; IS LAST TONE DONE? 


155 


0120 


01 JP LSI ; NO 


156 


0121 


06 JP NLST ; YES, RETURN TO MAIN 


157 


0122 


D704 LSI: LD EXITR, #LAST2 ; LENGTHEN THE LAST TONE 


158 


0124 


BD0079 SBIT 1,FLAG ; SET LAST TONE FLAG 


159 


0127 


OF JP NF2 


160 


0128 


9DFD NLST: LD A, SP ; ** RESTORE STACK POINTER ** 


161 


012A 


9402 ADD A, #002 ; ** AND RETURN TO MAIN ** 


162 


012C 


9CFD X A, SP 


163 


012E 


8E RET 


164 


; 




165 


012F 


BD0071 NF: IFBIT 1,FLAG ; LAST TONE ? 


166 


0132 


04 JP NF2 ; YES, DON'T INCREMENT LUPCNT 


167 


0133 


AE LD A, [B] ; NEW TONE 


168 


0134 


9404 ADD A, #04 ; INCR EXTRACT COUNT (LUPCNT) 


169 


0136 


A6 X A, [B] 


170 


0137 


D80A NF2: LD TCNTR, #TCNT ; REINITIALIZE TONE TIME 


171 


0139 


2111 JMP NXT 



www.national.com 



172 
173 
174 
175 
176 
177 
178 
179 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 
203 
204 



013B BDF075 WSINT: IFBIT 5,FCNTR ; READY FOR NEW FREQUENCY 

013E 06 JP TM ; YES 

013F 9DF0 LD A, FCNTR ; NO, INCREMENT COUNT 

0141 8A INC A 

0142 9CF0 X A, FCNTR 

0144 8D RETSK ; NO, RETURN TO WHISTLE 

0145 DOOO TM: LD FCNTR, #FCNT ; RESET NEW FREQUENCY COUNT 
0147 DEEC LD B, #TAULO ; POINT TO AUTORELOAD REG 

014 9 AE LD A, [B] ; CHANGE FREQUENCY 

014A 92FF IFEQ A, #MINFQ ; TIMER = MIN FREQ ? 

014C 03 UP DONE 

014D 8A INC A 

014E A6 X A, [B] 

014F 8D RETSK 

0150 9DFD DONE: LD A, SP 

0152 9402 ADD A, #002 ; 

0154 9CFD X A, SP 

0156 8E RET 

0157 BCD508 WHISTLE: LD PORTGC,#008 ; TIO PIN (G3) AS OUTPUT 
015A BCEEA2 LD CNTRL,#0A2 ; PWM WITH TIO TIGGLE, 8Tc 

015D DOOO LD FCNTR, #FCNT ; INIT FREQ COUNTER 

015F BCEA2F LD TMRLO, #WSLO ; WHISTLE VALUE FOR TIMER 

0162 BCEBOO LD TMRHI,#WSLHI 

0165 BCEC2F LD TAULO, #WSLO 

0168 BCEDOO LD TAUHI,#WSLHI 



STORE FREQ IN AUTO RELOAD 



** RESTORE STACK POINTER 
AND RETURN TO MAIN ** 



016B BCEFll BEGIN LD PSW,#011 ; ENTI, GIE = 1, TPND 
016E BDEE7C SBIT TRUN,CNTRL ; START TIMER 

0171 FF UP . ; LOOP UNTIL TIMER INTERRUPT 

0172 FB JP BEGIN ; RETURN HERE FROM INTERRUPT 
.END 







19 
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Laser Gun 



[ LASER 8 ] 




i 


INITIALIZE COUNTERS 
AND TIMER W/TIO 




i 




START TIMER 




, 


■" 




DO WHITE 
NOISE ROUTINE 











( TIMER INTERRUPT ) 



( TURN OFF TIMER ) 




(NF) ,, 



INCREMENT EXTRACTION 
RATE (LUPCNT) 



RESTORE NEW TONE 
TIME (TCNTR) 



RESTORE STACK 
POINTER 



c 



RETURN TO CALLING 
ROUTINE 



) 
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10 

11 

12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
58 



TIMER INTERRUPT IS USED. 

THE SERIAL OUTPUT PIN (SO) AND THE TIO PIN MUST BE 

TIED TOGETHER. 

OUTPUT IS ON SO AND TIO. 

TO ALTER THE DURATION OE THE LASER SHOT CHANGE THE 

"EXIT" VALUE, HOWEVER, DO NOT EXCEED 03F HEX. 

THE TIMER VALUES (TVALO, TVALHI) COMBINED WITH THE 

TONE COUNT (TNCTR) CAN BE ADJUSTED TO ACHIEVE A 

VARIETY OF SOUNDS. 

USE 20 MHz XTAL, 1 us INSTR CYCLE TIME EOR THIS DEMO. 



WRITTEN BY: JERRY LEVENTER 
DATE: OCTOBER 4, 1989 



TITLE LASERS 
CHIP 820 



00D5 
00E9 
OOEA 
OOEB 
OOEC 
OOED 
OOEE 
OOEF 
0004 
0005 
0002 



PORTGC = 0D5 
SIOR = 0E9 ; 



TMRLO 
TMRHI 
TAULO 
TAUHI 
CNTRL 
PSW = OEE 
TRUN = 4 
TPND = 5 
BUSY = 2 



PORT G CONFIGURATION 
; SIC SHIFT REGISTER 
OEA ; TIMER LOW BYTE 
OEB ; TIMER HIGH BYTE 
OEC ; TIMER REGISTER LOW BYTE 
OED ; TIMER REGISTER HIGH BYTE 
OEE ; CONTROL REGISTER 
PSW REGISTER 



**** SPECIAL REGISTERS AND COUNTERS **** 
ANY REGISTER THAT IS USED FOR THE DRSZ TEST, 
MUST BE INITIALIZED TO AT LEAST "1". 



00F7 EXITR = 
003F EXIT 
002 RNGVAL 
OOFS TCNTR = 
0020 TCNT 
00F9 LUPREG 
0003 XTRCT = 
OOFA LUPCNT 
OOFF TVALO = 
0000 TVALHI 



0F7 ; ROUTINE DURATION REGISTER 
03F ; EXIT CONSTANT 
= 002 ; HOLDS CURRENT RANDOM # 

0F8 ; TONE DURATION REGISTER 
02 ; TONE CONSTANT 
= 0F9 ; EXTRACTION RATE REGISTER 

03 ; EXTRACT CONSTANT 
= OFA ; EXTRACTON VARIABLE REGISTER 

OFF ; TIMER VALUES 
= 000 



BEGIN PROGRAM HERE 



0000 MAIN: LD SP,#02F DD2F; DEFAULT INITIALIZATION OF SP 

0002 LUP: LD EXITR, #EXIT D73F; INITIALIZE SHOT DURATION 

0004 JSR LASERS 3018; *** LASER CALLING ROUTINE *** 

0006 LD EXITR, #EXIT D73F 

0083 JSR LASERS 3018 



www.national.com 



59 
60 
61 
62 
63 
64 
65 
66 
67 



70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 



100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 



)00A 
)00C 



5014 
5016 



D73F LD EXITR, #EXIT 

3018 JSR LASER8 
OOE D715 LD EXITR, #015 ; EXIT COUNT CAN BE INITIALIZED 
010 3018 JSR LASER8 ; INSIDE PROGRAM IF SHOT RATE 
012 D715 LD EXITR, #015 

3018 JSR LASER8 

B8 NOP 



DOES NOT CHANGE. 



317 EA JP LUP 



LOOP FOR DEMO 



0018 BCD530 LASERS: LD PORTGC,#030 

OOIB BCEEAA LD CNTRL,#OAA ; SK = DIV BY 8, PWM/TIO 

OOIE BCEFll LD PSW,#011 ; ENABLE TIMER INTERRUPT 

0021 BCEAFF LD TMRLO, #TVALO ; INITIALIZE TIMER 

0024 BCEBOO LD TMRHI , #TVALHI 

0027 BCECFF LD TAULO, #TVALO 

002A BCEDOO LD TAUHI , #TVALHI 

; LD EXITR, #EXIT ; INITIALIZE EXIT COUNT 

0O2D D820 LD TCNTR, #TCNT ; INITIALIZE TONE COUNT 

002F DA03 LD LUPCNT, tXTRCT ; INITIALIZE EXTRACTION 

0031 BDEE7C SBITTRUN, CNTRL ; START TIMER 

0034 Al NOISE: SO ; INIT. STAGE 1 

0035 5D LD B, #RNGVAL ; POINT TO RANDOM NUMBER 

0036 9EFF LD [B],#OFF ; INIT RANDOM # 

0038 9CE9 SHIFT: X A, SIOR ; LOAD AND START SIOR 
003A BDEF7A SBIT BUSY, PSW 

003D 9DFA LD A, LUPCNT ; RESTORE EXTRACTION COUNT 
003F 9CF9 LD A, LUPREG 



RING COUNTER 

THIS IS A NINE STAGE RING COUNTER (LINEAR 
FEEDBACK SHIFT REGISTER) WITH THE RRC COMMAND. 
THE COUNTER'S 8th AND 9th STAGES, THROUGH AN 
EXCLUSIVE-OR SERVE AS THE FEEDBACK FUNCTION. 
SINCE THE EXCLUSIVE OR OCCURS AFTER THE ROTATE, 
IT IS THE 1st AND 9th STAGES THAT ARE XOR'D, 
(THE CARRY FLAG AND BIT 0) . 

CARRY BIT = STAGE 1 
LOW ORDER BIT = STAGE 9 

341 AE RING: LD A, [B] ; GET RANDOM # 

342 BO RRC A ; ROTATE UPPER BYTE 

343 A6 X A, [B] ; 

344 9800 LD A, #000 ; PERFORM XOR 
046 85 AND A, [B] 

347 9200 IFEQ A, #000 
349 05 JP TSTLUP 
34A 88 IFC 
34B 02 JP RC 



340 Al SC 

34D 01 JP TSTLUP 



3 4E AO RC: RC 
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TIMER INTERRUPT ROUTINE 



113 004F C9 TSTLUP: DRSZ LUPREG ; EXTRACT THIS # 

114 0050 FO UP RING ; NO, KEEP ROTATING 

115 0051 AE LD A, [B] ; YES 

116 0052 E5 UP SHIFT 
117 
118 
119 

120 OOFF .= OFF 

121 OOFF BDEF75 IFBIT TPND,PSW ; TEST TIMER PND FLAG 

122 0102 01 UP TMOUT 

123 0103 FF UP . ; ERROR 

124 ; 

125 0104 BDEE6C TMOUT: REIT TRUN,CNTRL ; STOP TIMER 

126 0107 DEFA LD B, #LUPCNT 

127 0109 C8 DRSZ TCNTR ; TEST FOR NEW TONE 

128 OlOA 01 UP NXT ; NO 

129 OlOB OB UP NEWF 

130 OlOC BDEF7C NXT: SBIT 4,PSW ; ENABLE TIMER INTERRUPT 

131 OlOF BDEF6D REIT 5,PSW ; RESET TPND FLAG 

132 0112 5D LD B, #RNGVAL ; POINT TO RANDOM # 

133 0113 BDEE7C SBIT TRUN.CNTRL ; RESTART TIMER 

134 0116 8F RETT ; RETURN 

135 0117 07 NEWF: DRSZ EXITR ; EXIT COUNT = ? 

136 0118 07 UP NF ; NO 

137 0119 9DFD NLST: LD A, SP ; *** RESTORE STACK POINTER * 

138 OllB 9402 ADD A, #002 ; *** FROM TIMER INTERRUPT *** 

139 OllD 9CFD X A, SP ; *** AND RETURN TO MAIN *** 

140 OllF 8E RET 

141 0120 AE NF: LD A, [B] ; NEW TONE 

142 0121 9404 ADD A, #04 ; INCR EXTRACTION VALUE 

143 0123 A6 X A, [B] 

144 0124 D820 LD TCNTR, #TCNT ; REINITIALIZE TONE TIME 

145 0126 E5 UP NXT 
14 6 .END 
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LIFE SUPPORT POLICY 

NATIONAL'S PRODUCTS ARE NOT AUTHORIZED FOR USE AS CRITICAL COMPONENTS IN LIFE SUPPORT 
DEVICES OR SYSTEMS WITHOUT THE EXPRESS WRITTEN APPROVAL OF THE PRESIDENT OF NATIONAL 
SEMICONDUCTOR CORPORATION. As used herein: 

1. Life support devices or systems are devices or 2. A critical component in any component of a life support 



systems whicti, (a) are intended for surgical implant 
into the body, or (b) support or sustain life, and 
whose failure to perform when properly used in 
accordance with instructions for use provided in the 
labeling, can be reasonably expected to result in a 
significant injury to the user. 



device or system whose failure to perform can be 
reasonably expected to cause the failure of the life 
support device or system, or to affect its safety or 
effectiveness. 
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National Semiconductor 
Corporation 

Americas 

Tel: 1-800-272-9959 
Fax: 1-800-737-7018 
Email: support@nsc.com 
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National Semiconductor 
Europe 

Fax: +49 (0) 1 80-530 85 86 

Email: europe.support@nsc.com 

Deutsch Tel: +49 (0) 1 80-530 85 85 

English Tel: +49 (0) 1 80-532 78 32 

Frangais Tel: +49 (0) 1 80-532 93 58 

Italiano Tel: +49 (0) 1 80-534 16 80 



National Semiconductor 
Asia Pacific Customer 
Response Group 

Tel: 65-2544466 
Fax: 65-2504466 
Email: sea.support@nsc.com 



National Semiconductor 
Japan Ltd. 

Tel: 81-3-5639-7560 
Fax: 81-3-5639-7507 



National does not assume any responsibility for use of any circuitry described, no circuit patent licenses are Implied and National reserves the right at any time without notice to change said circuitry and specifications. 



